      BLOCK DATA
C     *****************************************************
C     *                                                    *
C     *  BLOCK DATA 5                                      *
C     *                                                    *
C     *****************************************************
C
C     PRESET VALUES FOR TWIST COMMON BLOCKS
C
      IMPLICIT REAL*8(A-H,O-Z)
C
      REAL*4 D21,D22,D31,DI01,DI11,DI12,DI21,DI22,DI31,DA
C
      COMMON/DITCOM/D21(3,3,2),D22(3,3,2),D31(3,3,3,2),DI01(40)
     1             ,DI11(40,3),DI12(40,3),DI21(40,3,3),DI22(40,3,3)
     2             ,DI31(40,3,3,3),DA(40,3)
C
C
      REAL*4 VI11(40),VI12(40),VI211(80),VI212(80),VI213(80),VI214(40)
      REAL*4 VI221(80),VI222(80),VI223(80),VI224(40),VI311(80),VI312(80)
      REAL*4 VI313(80),VI314(80),VI315(80),VI316(80),VI317(80),VI318(80)
      REAL*4 VI319(80),VI31A(80),VI31B(80),VI31C(80),VI31D(40)
      REAL*4 VA(40)
C
      EQUIVALENCE (DI11(1,3),VI11(1)),(DI12(1,3),VI12(1))
      EQUIVALENCE (DI21(1,3,1),VI211(1)),(DI21(1,2,2),VI212(1))
      EQUIVALENCE (DI21(1,1,3),VI213(1)),(DI21(1,3,3),VI214(1))
      EQUIVALENCE (DI22(1,3,1),VI221(1)),(DI22(1,2,2),VI222(1))
      EQUIVALENCE (DI22(1,1,3),VI223(1)),(DI22(1,3,3),VI224(1))
C
      EQUIVALENCE (DI31(1,3,1,1),VI311(1)),(DI31(1,2,2,1),VI312(1))
      EQUIVALENCE (DI31(1,1,3,1),VI313(1)),(DI31(1,3,3,1),VI314(1))
      EQUIVALENCE (DI31(1,2,1,2),VI315(1)),(DI31(1,1,2,2),VI316(1))
      EQUIVALENCE (DI31(1,3,2,2),VI317(1)),(DI31(1,2,3,2),VI318(1))
      EQUIVALENCE (DI31(1,1,1,3),VI319(1)),(DI31(1,3,1,3),VI31A(1))
      EQUIVALENCE (DI31(1,2,2,3),VI31B(1)),(DI31(1,1,3,3),VI31C(1))
      EQUIVALENCE (DI31(1,3,3,3),VI31D(1))
      EQUIVALENCE (DA(1,3),VA(1))
C
C
      DATA D21/
     * 4.85714E-01, 9.53674E-07, 1.90735E-06, 9.53674E-07, 3.58768E-01,
     * 1.81198E-05, 1.90735E-06, 1.81198E-05, 2.65798E-01, 4.85714E-01,
     * 9.53674E-07, 1.90735E-06, 9.53674E-07, 3.58768E-01, 1.81198E-05,
     * 1.90735E-06, 1.81198E-05, 2.65798E-01/
C
      DATA D22/
     * 1.14285E 00, 1.82704E 00, 7.42520E 00, 1.82704E 00, 8.33423E 00,
     * 2.48789E 01, 7.42520E 00, 2.48789E 01, 1.36813E 02, 1.14285E 00,
     * 1.82704E 00, 7.42520E 00, 1.82704E 00, 8.33423E 00, 2.48789E 01,
     * 7.42520E 00, 2.48789E 01, 1.36813E 02/
C
      DATA D31/
     * 9.03708E-01,-5.16701E-03,-3.20587E-02, 1.95192E 00, 1.16498E 00,
     *-3.90137E-01, 7.30737E 00, 6.13013E 00, 2.05566E 00, 1.95187E 00,
     * 1.16522E 00,-3.92090E-01, 6.72778E 00, 2.30103E 00, 9.52148E-01,
     * 2.52354E 01, 1.90029E 01, 8.94141E 00, 7.30811E 00, 6.13623E 00,
     * 2.05249E 00, 2.52236E 01, 1.86279E 01, 9.25391E 00, 1.28586E 02,
     * 9.52539E 01, 6.83555E 01, 9.03708E-01,-5.16701E-03,-3.20587E-02,
     * 1.95192E 00, 1.16498E 00,-3.90137E-01, 7.30737E 00, 6.13013E 00,
     * 2.05566E 00, 1.95187E 00, 1.16522E 00,-3.92090E-01, 6.72778E 00,
     * 2.30103E 00, 9.52148E-01, 2.52354E 01, 1.90029E 01, 8.94141E 00,
     * 7.30811E 00, 6.13623E 00, 2.05249E 00, 2.52236E 01, 1.86279E 01,
     * 9.25391E 00, 1.28586E 02, 9.52539E 01, 6.83555E 01/
C
      DATA DI01/
     * 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02,
     * 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02,
     * 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02,
     * 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02,
     * 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02,
     * 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02,
     * 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02,
     * 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02, 5.00000E-02/
C
      DATA DI11/
     * 4.83541E-03, 1.38646E-02, 2.19687E-02, 2.91978E-02, 3.56020E-02,
     * 4.12312E-02, 4.61354E-02, 5.03645E-02, 5.39687E-02, 5.69980E-02,
     * 5.95020E-02, 6.15310E-02, 6.31352E-02, 6.43650E-02, 6.52684E-02,
     * 6.58978E-02, 6.63022E-02, 6.65317E-02, 6.66354E-02, 6.66640E-02,
     * 4.83541E-03, 1.38646E-02, 2.19687E-02, 2.91978E-02, 3.56020E-02,
     * 4.12312E-02, 4.61354E-02, 5.03645E-02, 5.39687E-02, 5.69980E-02,
     * 5.95020E-02, 6.15310E-02, 6.31352E-02, 6.43650E-02, 6.52684E-02,
     * 6.58978E-02, 6.63022E-02, 6.65317E-02, 6.66354E-02, 6.66640E-02,
     *-3.76881E-02,-9.39053E-02,-1.24975E-01,-1.35397E-01,-1.29312E-01,
     *-1.10502E-01,-8.23886E-02,-4.80363E-02,-1.01475E-02, 2.89329E-02,
     * 6.72193E-02, 1.03085E-01, 1.35254E-01, 1.62843E-01, 1.85283E-01,
     * 2.02382E-01, 2.14317E-01, 2.21630E-01, 2.25174E-01, 2.26232E-01,
     *-3.76881E-02,-9.39053E-02,-1.24975E-01,-1.35397E-01,-1.29312E-01,
     *-1.10502E-01,-8.23886E-02,-4.80363E-02,-1.01475E-02, 2.89329E-02,
     * 6.72193E-02, 1.03085E-01, 1.35254E-01, 1.62843E-01, 1.85283E-01,
     * 2.02382E-01, 2.14317E-01, 2.21630E-01, 2.25174E-01, 2.26232E-01,
     * 40*0.D0 /
C
      DATA VI11/
     * 1.22571E-01, 2.50973E-01, 2.50516E-01, 1.73419E-01, 6.10014E-02,
     *-5.52310E-02,-1.52503E-01,-2.15693E-01,-2.36236E-01,-2.11035E-01,
     *-1.41399E-01,-3.19356E-02, 1.10532E-01, 2.77972E-01, 4.62520E-01,
     * 6.57056E-01, 8.56502E-01, 1.05970E 00, 1.26913E 00, 1.49229E 00,
     * 1.22571E-01, 2.50973E-01, 2.50516E-01, 1.73419E-01, 6.10014E-02,
     *-5.52310E-02,-1.52503E-01,-2.15693E-01,-2.36236E-01,-2.11035E-01,
     *-1.41399E-01,-3.19356E-02, 1.10532E-01, 2.77972E-01, 4.62520E-01,
     * 6.57056E-01, 8.56502E-01, 1.05970E 00, 1.26913E 00, 1.49229E 00/
C
      DATA DI12/
     * 1.87422E-03, 5.61327E-03, 9.32420E-03, 1.29883E-02, 1.65867E-02,
     * 2.01007E-02, 2.35116E-02, 2.68008E-02, 2.99492E-02, 3.29382E-02,
     * 3.57492E-02, 3.83632E-02, 4.07617E-02, 4.29257E-02, 4.48366E-02,
     * 4.64758E-02, 4.78241E-02, 4.88632E-02, 4.95742E-02, 4.99381E-02,
     * 1.87422E-03, 5.61327E-03, 9.32420E-03, 1.29883E-02, 1.65867E-02,
     * 2.01007E-02, 2.35116E-02, 2.68008E-02, 2.99492E-02, 3.29382E-02,
     * 3.57492E-02, 3.83632E-02, 4.07617E-02, 4.29257E-02, 4.48366E-02,
     * 4.64758E-02, 4.78241E-02, 4.88632E-02, 4.95742E-02, 4.99381E-02,
     *-4.08741E-03,-1.20930E-02,-1.95956E-02,-2.62748E-02,-3.18324E-02,
     *-3.60020E-02,-3.85571E-02,-3.93210E-02,-3.81748E-02,-3.50671E-02,
     *-3.00223E-02,-2.31510E-02,-1.46564E-02,-4.84610E-03, 5.86092E-03,
     * 1.69242E-02, 2.76732E-02, 3.72999E-02, 4.48479E-02, 4.91984E-02,
     *-4.08741E-03,-1.20930E-02,-1.95956E-02,-2.62748E-02,-3.18324E-02,
     *-3.60020E-02,-3.85571E-02,-3.93210E-02,-3.81748E-02,-3.50671E-02,
     *-3.00223E-02,-2.31510E-02,-1.46564E-02,-4.84610E-03, 5.86092E-03,
     * 1.69242E-02, 2.76732E-02, 3.72999E-02, 4.48479E-02, 4.91984E-02,
     * 40*0.D0 /
C
      DATA VI12/
     * 5.09549E-03, 1.47511E-02, 2.28459E-02, 2.84886E-02, 3.10038E-02,
     * 3.00019E-02, 2.54342E-02, 1.76256E-02, 7.28416E-03,-4.52155E-03,
     *-1.64155E-02,-2.68113E-02,-3.40483E-02,-3.65785E-02,-3.32034E-02,
     *-2.33716E-02,-7.53576E-03, 1.24237E-02, 3.27048E-02, 4.70153E-02,
     * 5.09549E-03, 1.47511E-02, 2.28459E-02, 2.84886E-02, 3.10038E-02,
     * 3.00019E-02, 2.54342E-02, 1.76256E-02, 7.28416E-03,-4.52155E-03,
     *-1.64155E-02,-2.68113E-02,-3.40483E-02,-3.65785E-02,-3.32034E-02,
     *-2.33716E-02,-7.53576E-03, 1.24237E-02, 3.27048E-02, 4.70153E-02/
C
      DATA DI21/
     * 6.18306E-04, 3.96660E-03, 9.75025E-03, 1.71276E-02, 2.54103E-02,
     * 3.40463E-02, 4.26040E-02, 5.07572E-02, 5.82708E-02, 6.49877E-02,
     * 7.08185E-02, 7.57270E-02, 7.97250E-02, 8.28578E-02, 8.52007E-02,
     * 8.68501E-02, 8.79191E-02, 8.85273E-02, 8.88060E-02, 8.88796E-02,
     * 6.18306E-04, 3.96660E-03, 9.75025E-03, 1.71276E-02, 2.54103E-02,
     * 3.40463E-02, 4.26040E-02, 5.07572E-02, 5.82708E-02, 6.49877E-02,
     * 7.08185E-02, 7.57270E-02, 7.97250E-02, 8.28578E-02, 8.52007E-02,
     * 8.68501E-02, 8.79191E-02, 8.85273E-02, 8.88060E-02, 8.88796E-02,
     *-4.75948E-03,-2.66500E-02,-5.51660E-02,-7.90830E-02,-9.19446E-02,
     *-9.09123E-02,-7.57799E-02,-4.81487E-02,-1.07380E-02, 3.31597E-02,
     * 8.01326E-02, 1.26956E-01, 1.70862E-01, 2.09666E-01, 2.41883E-01,
     * 2.66739E-01, 2.84198E-01, 2.94884E-01, 3.00103E-01, 3.01634E-01,
     *-4.75948E-03,-2.66500E-02,-5.51660E-02,-7.90830E-02,-9.19446E-02,
     *-9.09123E-02,-7.57799E-02,-4.81487E-02,-1.07380E-02, 3.31597E-02,
     * 8.01326E-02, 1.26956E-01, 1.70862E-01, 2.09666E-01, 2.41883E-01,
     * 2.66739E-01, 2.84198E-01, 2.94884E-01, 3.00103E-01, 3.01634E-01,
     * 280*0.D0 /
C
      DATA VI211/
     * 1.52183E-02, 7.03568E-02, 1.09468E-01, 1.00120E-01, 4.22415E-02,
     *-4.65087E-02,-1.41345E-01,-2.17547E-01,-2.54974E-01,-2.40345E-01,
     *-1.67939E-01,-3.89158E-02, 1.39925E-01, 3.58190E-01, 6.03988E-01,
     * 8.66095E-01, 1.13606E 00, 1.41014E 00, 1.69129E 00, 1.98956E 00,
     * 1.52183E-02, 7.03568E-02, 1.09468E-01, 1.00120E-01, 4.22415E-02,
     *-4.65087E-02,-1.41345E-01,-2.17547E-01,-2.54974E-01,-2.40345E-01,
     *-1.67939E-01,-3.89158E-02, 1.39925E-01, 3.58190E-01, 6.03988E-01,
     * 8.66095E-01, 1.13606E 00, 1.41014E 00, 1.69129E 00, 1.98956E 00,
     *-4.75948E-03,-2.66500E-02,-5.51660E-02,-7.90830E-02,-9.19446E-02,
     *-9.09123E-02,-7.57799E-02,-4.81487E-02,-1.07380E-02, 3.31597E-02,
     * 8.01326E-02, 1.26956E-01, 1.70862E-01, 2.09666E-01, 2.41883E-01,
     * 2.66739E-01, 2.84198E-01, 2.94884E-01, 3.00103E-01, 3.01634E-01,
     *-4.75948E-03,-2.66500E-02,-5.51660E-02,-7.90830E-02,-9.19446E-02,
     *-9.09123E-02,-7.57799E-02,-4.81487E-02,-1.07380E-02, 3.31597E-02,
     * 8.01326E-02, 1.26956E-01, 1.70862E-01, 2.09666E-01, 2.41883E-01,
     * 2.66739E-01, 2.84198E-01, 2.94884E-01, 3.00103E-01, 3.01634E-01/
C
      DATA VI212/
     * 3.66689E-02, 1.79433E-01, 3.13050E-01, 3.66657E-01, 3.34722E-01,
     * 2.45176E-01, 1.37440E-01, 4.83637E-02, 4.58622E-03, 1.92623E-02,
     * 9.26056E-02, 2.14440E-01, 3.67445E-01, 5.31441E-01, 6.86706E-01,
     * 8.19117E-01, 9.18591E-01, 9.82047E-01, 1.01357E 00, 1.02313E 00,
     * 3.66689E-02, 1.79433E-01, 3.13050E-01, 3.66657E-01, 3.34722E-01,
     * 2.45176E-01, 1.37440E-01, 4.83637E-02, 4.58622E-03, 1.92623E-02,
     * 9.26056E-02, 2.14440E-01, 3.67445E-01, 5.31441E-01, 6.86706E-01,
     * 8.19117E-01, 9.18591E-01, 9.82047E-01, 1.01357E 00, 1.02313E 00,
     *-1.17388E-01,-4.75248E-01,-6.24630E-01,-4.69375E-01,-1.60355E-01,
     * 1.17682E-01, 2.46990E-01, 2.04640E-01, 4.82340E-02,-1.18844E-01,
     *-1.83887E-01,-5.82304E-02, 3.07200E-01, 9.13247E-01, 1.72148E 00,
     * 2.66534E 00, 3.68022E 00, 4.70033E 00, 5.72189E 00, 6.75804E 00,
     *-1.17388E-01,-4.75248E-01,-6.24630E-01,-4.69375E-01,-1.60355E-01,
     * 1.17682E-01, 2.46990E-01, 2.04640E-01, 4.82340E-02,-1.18844E-01,
     *-1.83887E-01,-5.82304E-02, 3.07200E-01, 9.13247E-01, 1.72148E 00,
     * 2.66534E 00, 3.68022E 00, 4.70033E 00, 5.72189E 00, 6.75804E 00/
C
      DATA VI213/
     * 1.52183E-02, 7.03568E-02, 1.09468E-01, 1.00120E-01, 4.22415E-02,
     *-4.65087E-02,-1.41345E-01,-2.17547E-01,-2.54974E-01,-2.40345E-01,
     *-1.67939E-01,-3.89158E-02, 1.39925E-01, 3.58190E-01, 6.03988E-01,
     * 8.66095E-01, 1.13606E 00, 1.41014E 00, 1.69129E 00, 1.98956E 00,
     * 1.52183E-02, 7.03568E-02, 1.09468E-01, 1.00120E-01, 4.22415E-02,
     *-4.65087E-02,-1.41345E-01,-2.17547E-01,-2.54974E-01,-2.40345E-01,
     *-1.67939E-01,-3.89158E-02, 1.39925E-01, 3.58190E-01, 6.03988E-01,
     * 8.66095E-01, 1.13606E 00, 1.41014E 00, 1.69129E 00, 1.98956E 00,
     *-1.17388E-01,-4.75248E-01,-6.24630E-01,-4.69375E-01,-1.60355E-01,
     * 1.17682E-01, 2.46990E-01, 2.04640E-01, 4.82340E-02,-1.18844E-01,
     *-1.83887E-01,-5.82304E-02, 3.07200E-01, 9.13247E-01, 1.72148E 00,
     * 2.66534E 00, 3.68022E 00, 4.70033E 00, 5.72189E 00, 6.75804E 00,
     *-1.17388E-01,-4.75248E-01,-6.24630E-01,-4.69375E-01,-1.60355E-01,
     * 1.17682E-01, 2.46990E-01, 2.04640E-01, 4.82340E-02,-1.18844E-01,
     *-1.83887E-01,-5.82304E-02, 3.07200E-01, 9.13247E-01, 1.72148E 00,
     * 2.66534E 00, 3.68022E 00, 4.70033E 00, 5.72189E 00, 6.75804E 00/
C
      DATA VI214/
     * 3.76406E-01, 1.26494E 00, 1.25904E 00, 6.18608E-01, 9.80043E-02,
     * 8.09393E-02, 4.75834E-01, 9.32716E-01, 1.11491E 00, 8.91863E-01,
     * 4.12585E-01, 4.50993E-02, 2.76222E-01, 1.60406E 00, 4.33547E 00,
     * 8.68923E 00, 1.47553E 01, 2.25494E 01, 3.24204E 01, 4.46970E 01,
     * 3.76406E-01, 1.26494E 00, 1.25904E 00, 6.18608E-01, 9.80043E-02,
     * 8.09393E-02, 4.75834E-01, 9.32716E-01, 1.11491E 00, 8.91863E-01,
     * 4.12585E-01, 4.50993E-02, 2.76222E-01, 1.60406E 00, 4.33547E 00,
     * 8.68923E 00, 1.47553E 01, 2.25494E 01, 3.24204E 01, 4.46970E 01/
C
      DATA DI22/
     * 2.40630E-04, 1.60969E-03, 4.14393E-03, 7.62583E-03, 1.18461E-02,
     * 1.66059E-02, 2.17199E-02, 2.70171E-02, 3.23434E-02, 3.75615E-02,
     * 4.25532E-02, 4.72184E-02, 5.14755E-02, 5.52617E-02, 5.85312E-02,
     * 6.12544E-02, 6.34178E-02, 6.50188E-02, 6.60682E-02, 6.65827E-02,
     * 2.40630E-04, 1.60969E-03, 4.14393E-03, 7.62583E-03, 1.18461E-02,
     * 1.66059E-02, 2.17199E-02, 2.70171E-02, 3.23434E-02, 3.75615E-02,
     * 4.25532E-02, 4.72184E-02, 5.14755E-02, 5.52617E-02, 5.85312E-02,
     * 6.12544E-02, 6.34178E-02, 6.50188E-02, 6.60682E-02, 6.65827E-02,
     *-5.24470E-04,-3.46476E-03,-8.70107E-03,-1.54134E-02,-2.27152E-02,
     *-2.97180E-02,-3.55899E-02,-3.96066E-02,-4.11933E-02,-3.99561E-02,
     *-3.57053E-02,-2.84668E-02,-1.84850E-02,-6.22016E-03, 7.66450E-03,
     * 2.23147E-02, 3.67023E-02, 4.96353E-02, 5.97684E-02, 6.55983E-02,
     *-5.24470E-04,-3.46476E-03,-8.70107E-03,-1.54134E-02,-2.27152E-02,
     *-2.97180E-02,-3.55899E-02,-3.96066E-02,-4.11933E-02,-3.99561E-02,
     *-3.57053E-02,-2.84668E-02,-1.84850E-02,-6.22016E-03, 7.66450E-03,
     * 2.23147E-02, 3.67023E-02, 4.96353E-02, 5.97684E-02, 6.55983E-02,
     * 280*0.D0 /
C
      DATA VI221/
     * 6.53133E-04, 4.21952E-03, 1.01275E-02, 1.66836E-02, 2.20841E-02,
     * 2.47158E-02, 2.34208E-02, 1.76941E-02, 7.79992E-03,-5.20980E-03,
     *-1.95782E-02,-3.30217E-02,-4.30049E-02,-4.70880E-02,-4.33319E-02,
     *-3.07900E-02,-9.98449E-03, 1.65373E-02, 4.35872E-02, 6.26879E-02,
     * 6.53133E-04, 4.21952E-03, 1.01275E-02, 1.66836E-02, 2.20841E-02,
     * 2.47158E-02, 2.34208E-02, 1.76941E-02, 7.79992E-03,-5.20980E-03,
     *-1.95782E-02,-3.30217E-02,-4.30049E-02,-4.70880E-02,-4.33319E-02,
     *-3.07900E-02,-9.98449E-03, 1.65373E-02, 4.35872E-02, 6.26879E-02,
     *-1.85175E-03,-1.08082E-02,-2.34287E-02,-3.51802E-02,-4.28195E-02,
     *-4.42846E-02,-3.85645E-02,-2.55514E-02,-5.87839E-03, 1.92482E-02,
     * 4.82280E-02, 7.92354E-02, 1.10381E-01, 1.39890E-01, 1.66207E-01,
     * 1.88153E-01, 2.05012E-01, 2.16596E-01, 2.23261E-01, 2.25948E-01,
     *-1.85175E-03,-1.08082E-02,-2.34287E-02,-3.51802E-02,-4.28195E-02,
     *-4.42846E-02,-3.85645E-02,-2.55514E-02,-5.87839E-03, 1.92482E-02,
     * 4.82280E-02, 7.92354E-02, 1.10381E-01, 1.39890E-01, 1.66207E-01,
     * 1.88153E-01, 2.05012E-01, 2.16596E-01, 2.23261E-01, 2.25948E-01/
C
      DATA VI222/
     * 4.03620E-03, 2.32697E-02, 4.92175E-02, 7.11661E-02, 8.22199E-02,
     * 7.94299E-02, 6.34450E-02, 3.77878E-02, 7.88492E-03,-2.00264E-02,
     *-3.99876E-02,-4.72879E-02,-3.91917E-02,-1.53525E-02, 2.20785E-02,
     * 6.87629E-02, 1.18772E-01, 1.65420E-01, 2.01971E-01, 2.22611E-01,
     * 4.03620E-03, 2.32697E-02, 4.92175E-02, 7.11661E-02, 8.22199E-02,
     * 7.94299E-02, 6.34450E-02, 3.77878E-02, 7.88492E-03,-2.00264E-02,
     *-3.99876E-02,-4.72879E-02,-3.91917E-02,-1.53525E-02, 2.20785E-02,
     * 6.87629E-02, 1.18772E-01, 1.65420E-01, 2.01971E-01, 2.22611E-01,
     *-5.02678E-03,-2.83509E-02,-5.73381E-02,-7.71571E-02,-8.01674E-02,
     *-6.64189E-02,-4.22423E-02,-1.74968E-02,-2.21002E-03,-3.40474E-03,
     *-2.27850E-02,-5.57975E-02,-9.23698E-02,-1.19128E-01,-1.22844E-01,
     *-9.42745E-02,-3.20356E-02, 5.52095E-02, 1.47443E-01, 2.12873E-01,
     *-5.02678E-03,-2.83509E-02,-5.73381E-02,-7.71571E-02,-8.01674E-02,
     *-6.64189E-02,-4.22423E-02,-1.74968E-02,-2.21002E-03,-3.40474E-03,
     *-2.27850E-02,-5.57975E-02,-9.23698E-02,-1.19128E-01,-1.22844E-01,
     *-9.42745E-02,-3.20356E-02, 5.52095E-02, 1.47443E-01, 2.12873E-01/
C
      DATA VI223/
     * 5.91860E-03, 2.85073E-02, 4.64263E-02, 4.44340E-02, 1.95291E-02,
     *-2.28394E-02,-7.21735E-02,-1.15844E-01,-1.41489E-01,-1.38789E-01,
     *-1.00692E-01,-2.39537E-02, 9.07007E-02, 2.39257E-01, 4.15326E-01,
     * 6.11210E-01, 8.19727E-01, 1.03598E 00, 1.25849E 00, 1.49040E 00,
     * 5.91860E-03, 2.85073E-02, 4.64263E-02, 4.44340E-02, 1.95291E-02,
     *-2.28394E-02,-7.21735E-02,-1.15844E-01,-1.41489E-01,-1.38789E-01,
     *-1.00692E-01,-2.39537E-02, 9.07007E-02, 2.39257E-01, 4.15326E-01,
     * 6.11210E-01, 8.19727E-01, 1.03598E 00, 1.25849E 00, 1.49040E 00,
     *-1.29014E-02,-6.13972E-02,-9.76185E-02,-9.00890E-02,-3.78603E-02,
     * 4.03934E-02, 1.17835E-01, 1.69621E-01, 1.80373E-01, 1.48347E-01,
     * 8.57998E-02, 1.64160E-02,-2.99996E-02,-2.39218E-02, 5.76624E-02,
     * 2.25994E-01, 4.77575E-01, 7.93430E-01, 1.14007E 00, 1.46896E 00,
     *-1.29014E-02,-6.13972E-02,-9.76185E-02,-9.00890E-02,-3.78603E-02,
     * 4.03934E-02, 1.17835E-01, 1.69621E-01, 1.80373E-01, 1.48347E-01,
     * 8.57998E-02, 1.64160E-02,-2.99996E-02,-2.39218E-02, 5.76624E-02,
     * 2.25994E-01, 4.77575E-01, 7.93430E-01, 1.14007E 00, 1.46896E 00/
C
      DATA VI224/
     * 1.60695E-02, 7.48531E-02, 1.13917E-01, 9.81058E-02, 3.76673E-02,
     *-3.26277E-02,-7.67181E-02,-7.53769E-02,-3.44577E-02, 1.81164E-02,
     * 4.46522E-02, 1.51574E-02,-7.64238E-02,-2.03346E-01,-3.04976E-01,
     *-3.03071E-01,-1.23003E-01, 2.70197E-01, 8.37386E-01, 1.40390E 00,
     * 1.60695E-02, 7.48531E-02, 1.13917E-01, 9.81058E-02, 3.76673E-02,
     *-3.26277E-02,-7.67181E-02,-7.53769E-02,-3.44577E-02, 1.81164E-02,
     * 4.46522E-02, 1.51574E-02,-7.64238E-02,-2.03346E-01,-3.04976E-01,
     *-3.03071E-01,-1.23003E-01, 2.70197E-01, 8.37386E-01, 1.40390E 00/
C
      DATA DI31/
     * 3.45833E-05, 4.74736E-04, 1.85961E-03, 4.49727E-03, 8.48019E-03,
     * 1.37372E-02, 2.00809E-02, 2.72489E-02, 3.49398E-02, 4.28423E-02,
     * 5.06585E-02, 5.81217E-02, 6.50081E-02, 7.11441E-02, 7.64089E-02,
     * 8.07328E-02, 8.40955E-02, 8.65172E-02, 8.80498E-02, 8.87741E-02,
     * 3.45833E-05, 4.74736E-04, 1.85961E-03, 4.49727E-03, 8.48019E-03,
     * 1.37372E-02, 2.00809E-02, 2.72489E-02, 3.49398E-02, 4.28423E-02,
     * 5.06585E-02, 5.81217E-02, 6.50081E-02, 7.11441E-02, 7.64089E-02,
     * 8.07328E-02, 8.40955E-02, 8.65172E-02, 8.80498E-02, 8.87741E-02,
     *-7.53467E-05,-1.02101E-03,-3.90127E-03,-9.08213E-03,-1.62474E-02,
     *-2.45639E-02,-3.28776E-02,-3.99144E-02,-4.44643E-02,-4.55359E-02,
     *-4.24691E-02,-3.50057E-02,-2.33162E-02,-7.98517E-03, 1.00242E-02,
     * 2.94254E-02, 4.86755E-02, 6.60413E-02, 7.96617E-02, 8.74596E-02,
     *-7.53467E-05,-1.02101E-03,-3.90127E-03,-9.08213E-03,-1.62474E-02,
     *-2.45639E-02,-3.28776E-02,-3.99144E-02,-4.44643E-02,-4.55359E-02,
     *-4.24691E-02,-3.50057E-02,-2.33162E-02,-7.98517E-03, 1.00242E-02,
     * 2.94254E-02, 4.86755E-02, 6.60413E-02, 7.96617E-02, 8.74596E-02,
     * 1000*0.D0 /
C
      DATA VI311/
     * 9.37647E-05, 1.24158E-03, 4.53353E-03, 9.81409E-03, 1.57677E-02,
     * 2.03887E-02, 2.15841E-02, 1.77715E-02, 8.35460E-03,-6.00320E-03,
     *-2.33526E-02,-4.06733E-02,-5.43206E-02,-6.06136E-02,-5.65525E-02,
     *-4.05707E-02,-1.32148E-02, 2.20162E-02, 5.80898E-02, 8.35869E-02,
     * 9.37647E-05, 1.24158E-03, 4.53353E-03, 9.81409E-03, 1.57677E-02,
     * 2.03887E-02, 2.15841E-02, 1.77715E-02, 8.35460E-03,-6.00320E-03,
     *-2.33526E-02,-4.06733E-02,-5.43206E-02,-6.06136E-02,-5.65525E-02,
     *-4.05707E-02,-1.32148E-02, 2.20162E-02, 5.80898E-02, 8.35869E-02,
     *-2.64142E-04,-3.16442E-03,-1.04586E-02,-2.06594E-02,-3.05377E-02,
     *-3.65004E-02,-3.55124E-02,-2.56300E-02,-6.22034E-03, 2.20689E-02,
     * 5.75104E-02, 9.76065E-02, 1.39458E-01, 1.80131E-01, 2.17007E-01,
     * 2.48005E-01, 2.71892E-01, 2.88238E-01, 2.97598E-01, 3.01344E-01,
     *-2.64142E-04,-3.16442E-03,-1.04586E-02,-2.06594E-02,-3.05377E-02,
     *-3.65004E-02,-3.55124E-02,-2.56300E-02,-6.22034E-03, 2.20689E-02,
     * 5.75104E-02, 9.76065E-02, 1.39458E-01, 1.80131E-01, 2.17007E-01,
     * 2.48005E-01, 2.71892E-01, 2.88238E-01, 2.97598E-01, 3.01344E-01/
C
      DATA VI312/
     * 5.75508E-04, 6.80716E-03, 2.19515E-02, 4.17556E-02, 5.85875E-02,
     * 6.54149E-02, 5.83775E-02, 3.78737E-02, 8.34394E-03,-2.29435E-02,
     *-4.76413E-02,-5.81925E-02,-4.94732E-02,-1.97129E-02, 2.88577E-02,
     * 9.07174E-02, 1.57532E-01, 2.20033E-01, 2.69194E-01, 2.96532E-01,
     * 5.75508E-04, 6.80716E-03, 2.19515E-02, 4.17556E-02, 5.85875E-02,
     * 6.54149E-02, 5.83775E-02, 3.78737E-02, 8.34394E-03,-2.29435E-02,
     *-4.76413E-02,-5.81925E-02,-4.94732E-02,-1.97129E-02, 2.88577E-02,
     * 9.07174E-02, 1.57532E-01, 2.20033E-01, 2.69194E-01, 2.96532E-01,
     *-7.16232E-04,-8.28107E-03,-2.55316E-02,-4.51941E-02,-5.70223E-02,
     *-5.45911E-02,-3.87766E-02,-1.74813E-02,-2.34169E-03,-3.91591E-03,
     *-2.71975E-02,-6.87402E-02,-1.16682E-01,-1.53285E-01,-1.60190E-01,
     *-1.24061E-01,-4.20049E-02, 7.40530E-02, 1.97200E-01, 2.84975E-01,
     *-7.16232E-04,-8.28107E-03,-2.55316E-02,-4.51941E-02,-5.70223E-02,
     *-5.45911E-02,-3.87766E-02,-1.74813E-02,-2.34169E-03,-3.91591E-03,
     *-2.71975E-02,-6.87402E-02,-1.16682E-01,-1.53285E-01,-1.60190E-01,
     *-1.24061E-01,-4.20049E-02, 7.40530E-02, 1.97200E-01, 2.84975E-01/
C
      DATA VI313/
     * 8.35587E-04, 8.25277E-03, 2.05201E-02, 2.57915E-02, 1.35533E-02,
     *-1.92552E-02,-6.69650E-02,-1.16929E-01,-1.52793E-01,-1.58121E-01,
     *-1.19607E-01,-2.92092E-02, 1.14835E-01, 3.08318E-01, 5.42327E-01,
     * 8.05689E-01, 1.08717E 00, 1.37845E 00, 1.67716E 00, 1.98725E 00,
     * 8.35587E-04, 8.25277E-03, 2.05201E-02, 2.57915E-02, 1.35533E-02,
     *-1.92552E-02,-6.69650E-02,-1.16929E-01,-1.52793E-01,-1.58121E-01,
     *-1.19607E-01,-2.92092E-02, 1.14835E-01, 3.08318E-01, 5.42327E-01,
     * 8.05689E-01, 1.08717E 00, 1.37845E 00, 1.67716E 00, 1.98725E 00,
     *-1.82065E-03,-1.77591E-02,-4.31084E-02,-5.22471E-02,-2.62606E-02,
     * 3.40373E-02, 1.09247E-01, 1.71073E-01, 1.94602E-01, 1.68856E-01,
     * 1.01822E-01, 2.00927E-02,-3.78609E-02,-3.09178E-02, 7.57304E-02,
     * 2.97810E-01, 6.32793E-01, 1.05505E 00, 1.52020E 00, 1.95632E 00,
     *-1.82065E-03,-1.77591E-02,-4.31084E-02,-5.22471E-02,-2.62606E-02,
     * 3.40373E-02, 1.09247E-01, 1.71073E-01, 1.94602E-01, 1.68856E-01,
     * 1.01822E-01, 2.00927E-02,-3.78609E-02,-3.09178E-02, 7.57304E-02,
     * 2.97810E-01, 6.32793E-01, 1.05505E 00, 1.52020E 00, 1.95632E 00/
C
      DATA VI314/
     * 2.26604E-03, 2.16177E-02, 5.02229E-02, 5.68012E-02, 2.60923E-02,
     *-2.74559E-02,-7.09628E-02,-7.57812E-02,-3.69109E-02, 2.08315E-02,
     * 5.31175E-02, 1.84468E-02,-9.72493E-02,-2.62086E-01,-3.99203E-01,
     *-3.99941E-01,-1.65189E-01, 3.59224E-01, 1.11368E 00, 1.87253E 00,
     * 2.26604E-03, 2.16177E-02, 5.02229E-02, 5.68012E-02, 2.60923E-02,
     *-2.74559E-02,-7.09628E-02,-7.57812E-02,-3.69109E-02, 2.08315E-02,
     * 5.31175E-02, 1.84468E-02,-9.72493E-02,-2.62086E-01,-3.99203E-01,
     *-3.99941E-01,-1.65189E-01, 3.59224E-01, 1.11368E 00, 1.87253E 00,
     *-2.64142E-04,-3.16442E-03,-1.04586E-02,-2.06594E-02,-3.05377E-02,
     *-3.65004E-02,-3.55124E-02,-2.56300E-02,-6.22034E-03, 2.20689E-02,
     * 5.75104E-02, 9.76046E-02, 1.39458E-01, 1.80130E-01, 2.16996E-01,
     * 2.48014E-01, 2.71883E-01, 2.88222E-01, 2.97604E-01, 3.01323E-01,
     *-2.64142E-04,-3.16442E-03,-1.04586E-02,-2.06594E-02,-3.05377E-02,
     *-3.65004E-02,-3.55124E-02,-2.56300E-02,-6.22034E-03, 2.20689E-02,
     * 5.75104E-02, 9.76046E-02, 1.39458E-01, 1.80130E-01, 2.16996E-01,
     * 2.48014E-01, 2.71883E-01, 2.88222E-01, 2.97604E-01, 3.01323E-01/
C
      DATA VI315/
     * 5.75508E-04, 6.80716E-03, 2.19515E-02, 4.17556E-02, 5.85875E-02,
     * 6.54149E-02, 5.83775E-02, 3.78737E-02, 8.34584E-03,-2.29416E-02,
     *-4.76451E-02,-5.81925E-02,-4.94460E-02,-1.97401E-02, 2.89156E-02,
     * 9.06594E-02, 1.57643E-01, 2.20061E-01, 2.69252E-01, 2.96578E-01,
     * 5.75508E-04, 6.80716E-03, 2.19515E-02, 4.17556E-02, 5.85875E-02,
     * 6.54149E-02, 5.83775E-02, 3.78737E-02, 8.34584E-03,-2.29416E-02,
     *-4.76451E-02,-5.81925E-02,-4.94460E-02,-1.97401E-02, 2.89156E-02,
     * 9.06594E-02, 1.57643E-01, 2.20061E-01, 2.69252E-01, 2.96578E-01,
     *-7.16232E-04,-8.28108E-03,-2.55316E-02,-4.51941E-02,-5.70222E-02,
     *-5.45911E-02,-3.87777E-02,-1.74829E-02,-2.33895E-03,-3.92354E-03,
     *-2.72025E-02,-6.87456E-02,-1.16691E-01,-1.53298E-01,-1.60266E-01,
     *-1.24109E-01,-4.21675E-02, 7.36583E-02, 1.96604E-01, 2.84339E-01,
     *-7.16232E-04,-8.28108E-03,-2.55316E-02,-4.51941E-02,-5.70222E-02,
     *-5.45911E-02,-3.87777E-02,-1.74829E-02,-2.33895E-03,-3.92354E-03,
     *-2.72025E-02,-6.87456E-02,-1.16691E-01,-1.53298E-01,-1.60266E-01,
     *-1.24109E-01,-4.21675E-02, 7.36583E-02, 1.96604E-01, 2.84339E-01/
C
      DATA VI316/
     * 2.01876E-03, 2.11339E-02, 5.89895E-02, 9.52924E-02, 1.10639E-01,
     * 9.79545E-02, 6.40443E-02, 2.55631E-02, 2.67196E-03, 1.29322E-02,
     * 6.67540E-02, 1.65118E-01, 3.00288E-01, 4.56761E-01, 6.16872E-01,
     * 7.62356E-01, 8.78498E-01, 9.60514E-01, 1.00570E 00, 1.02194E 00,
     * 2.01876E-03, 2.11339E-02, 5.89895E-02, 9.52924E-02, 1.10639E-01,
     * 9.79545E-02, 6.40443E-02, 2.55631E-02, 2.67196E-03, 1.29322E-02,
     * 6.67540E-02, 1.65118E-01, 3.00288E-01, 4.56761E-01, 6.16872E-01,
     * 7.62356E-01, 8.78498E-01, 9.60514E-01, 1.00570E 00, 1.02194E 00,
     *-4.39859E-03,-4.54726E-02,-1.23872E-01,-1.92759E-01,-2.12549E-01,
     *-1.75934E-01,-1.05675E-01,-3.80415E-02,-3.55136E-03,-1.32083E-02,
     *-5.44417E-02,-9.75509E-02,-1.04815E-01,-4.86822E-02, 8.42590E-02,
     * 2.79397E-01, 5.11290E-01, 7.31560E-01, 9.12759E-01, 1.00173E 00,
     *-4.39859E-03,-4.54726E-02,-1.23872E-01,-1.92759E-01,-2.12549E-01,
     *-1.75934E-01,-1.05675E-01,-3.80415E-02,-3.55136E-03,-1.32083E-02,
     *-5.44417E-02,-9.75509E-02,-1.04815E-01,-4.86822E-02, 8.42590E-02,
     * 2.79397E-01, 5.11290E-01, 7.31560E-01, 9.12759E-01, 1.00173E 00/
C
      DATA VI317/
     * 5.47451E-03, 5.53411E-02, 1.44204E-01, 2.08973E-01, 2.07469E-01,
     * 1.47608E-01, 7.09911E-02, 1.80796E-02, 9.14872E-04,-2.84213E-03,
     *-3.27048E-02,-1.17071E-01,-2.50847E-01,-3.88472E-01,-4.52350E-01,
     *-3.82364E-01,-1.33930E-01, 2.49915E-01, 6.80446E-01, 9.67501E-01,
     * 5.47451E-03, 5.53411E-02, 1.44204E-01, 2.08973E-01, 2.07469E-01,
     * 1.47608E-01, 7.09911E-02, 1.80796E-02, 9.14872E-04,-2.84213E-03,
     *-3.27048E-02,-1.17071E-01,-2.50847E-01,-3.88472E-01,-4.52350E-01,
     *-3.82364E-01,-1.33930E-01, 2.49915E-01, 6.80446E-01, 9.67501E-01,
     *-6.39170E-03,-5.52831E-02,-1.16371E-01,-1.20306E-01,-5.12877E-02,
     * 4.85207E-02, 1.16315E-01, 1.08973E-01, 2.77969E-02,-7.93154E-02,
     *-1.32044E-01,-4.42289E-02, 2.52154E-01, 7.84192E-01, 1.54128E 00,
     * 2.47487E 00, 3.51168E 00, 4.58779E 00, 5.65711E 00, 6.73587E 00,
     *-6.39170E-03,-5.52831E-02,-1.16371E-01,-1.20306E-01,-5.12877E-02,
     * 4.85207E-02, 1.16315E-01, 1.08973E-01, 2.77969E-02,-7.93154E-02,
     *-1.32044E-01,-4.42289E-02, 2.52154E-01, 7.84192E-01, 1.54128E 00,
     * 2.47487E 00, 3.51168E 00, 4.58779E 00, 5.65711E 00, 6.73587E 00/
C
      DATA VI318/
     * 1.39273E-02, 1.18991E-01, 2.44589E-01, 2.43902E-01, 9.94695E-02,
     *-8.59303E-02,-1.90389E-01,-1.60666E-01,-3.69651E-02, 8.35307E-02,
     * 1.12662E-01, 3.30380E-02,-7.71351E-02,-6.46074E-02, 2.22769E-01,
     * 9.29809E-01, 2.04609E 00, 3.56529E 00, 5.19812E 00, 6.74464E 00,
     * 1.39273E-02, 1.18991E-01, 2.44589E-01, 2.43902E-01, 9.94695E-02,
     *-8.59303E-02,-1.90389E-01,-1.60666E-01,-3.69651E-02, 8.35307E-02,
     * 1.12662E-01, 3.30380E-02,-7.71351E-02,-6.46074E-02, 2.22769E-01,
     * 9.29809E-01, 2.04609E 00, 3.56529E 00, 5.19812E 00, 6.74464E 00,
     *-1.73355E-02,-1.44904E-01,-2.85210E-01,-2.65581E-01,-9.90087E-02,
     * 6.95952E-02, 1.25198E-01, 7.38491E-02, 1.01588E-02, 1.32214E-02,
     * 6.07010E-02, 2.95124E-02,-2.09608E-01,-6.55809E-01,-1.10624E 00,
     *-1.17132E 00,-3.85066E-01, 1.41548E 00, 4.27956E 00, 7.10263E 00,
     *-1.73355E-02,-1.44904E-01,-2.85210E-01,-2.65581E-01,-9.90087E-02,
     * 6.95952E-02, 1.25198E-01, 7.38491E-02, 1.01588E-02, 1.32214E-02,
     * 6.07010E-02, 2.95124E-02,-2.09608E-01,-6.55809E-01,-1.10624E 00,
     *-1.17132E 00,-3.85066E-01, 1.41548E 00, 4.27956E 00, 7.10263E 00/
C
      DATA VI319/
     * 8.35587E-04, 8.25277E-03, 2.05201E-02, 2.57915E-02, 1.35536E-02,
     *-1.92549E-02,-6.69642E-02,-1.16928E-01,-1.52785E-01,-1.58122E-01,
     *-1.19589E-01,-2.91969E-02, 1.14855E-01, 3.08345E-01, 5.42359E-01,
     * 8.05811E-01, 1.08715E 00, 1.37867E 00, 1.67730E 00, 1.98741E 00,
     * 8.35587E-04, 8.25277E-03, 2.05201E-02, 2.57915E-02, 1.35536E-02,
     *-1.92549E-02,-6.69642E-02,-1.16928E-01,-1.52785E-01,-1.58122E-01,
     *-1.19589E-01,-2.91969E-02, 1.14855E-01, 3.08345E-01, 5.42359E-01,
     * 8.05811E-01, 1.08715E 00, 1.37867E 00, 1.67730E 00, 1.98741E 00,
     *-1.82065E-03,-1.77591E-02,-4.31084E-02,-5.22471E-02,-2.62596E-02,
     * 3.40363E-02, 1.09247E-01, 1.71073E-01, 1.94622E-01, 1.68866E-01,
     * 1.01836E-01, 2.01105E-02,-3.78364E-02,-3.08295E-02, 7.54002E-02,
     * 2.98365E-01, 6.34177E-01, 1.05583E 00, 1.52162E 00, 1.95844E 00,
     *-1.82065E-03,-1.77591E-02,-4.31084E-02,-5.22471E-02,-2.62596E-02,
     * 3.40363E-02, 1.09247E-01, 1.71073E-01, 1.94622E-01, 1.68866E-01,
     * 1.01836E-01, 2.01105E-02,-3.78364E-02,-3.08295E-02, 7.54002E-02,
     * 2.98365E-01, 6.34177E-01, 1.05583E 00, 1.52162E 00, 1.95844E 00/
C
      DATA VI31A/
     * 2.26604E-03, 2.16177E-02, 5.02229E-02, 5.68011E-02, 2.60932E-02,
     *-2.74549E-02,-7.09611E-02,-7.57786E-02,-3.69071E-02, 2.08521E-02,
     * 5.31093E-02, 1.84877E-02,-9.72254E-02,-2.62408E-01,-3.98814E-01,
     *-3.99795E-01,-1.66254E-01, 3.60309E-01, 1.11395E 00, 1.86876E 00,
     * 2.26604E-03, 2.16177E-02, 5.02229E-02, 5.68011E-02, 2.60932E-02,
     *-2.74549E-02,-7.09611E-02,-7.57786E-02,-3.69071E-02, 2.08521E-02,
     * 5.31093E-02, 1.84877E-02,-9.72254E-02,-2.62408E-01,-3.98814E-01,
     *-3.99795E-01,-1.66254E-01, 3.60309E-01, 1.11395E 00, 1.86876E 00,
     *-6.39170E-03,-5.52832E-02,-1.16371E-01,-1.20306E-01,-5.12915E-02,
     * 4.85145E-02, 1.16303E-01, 1.08958E-01, 2.77644E-02,-7.94894E-02,
     *-1.32202E-01,-4.44280E-02, 2.51840E-01, 7.83818E-01, 1.53979E 00,
     * 2.47506E 00, 3.51071E 00, 4.58447E 00, 5.65485E 00, 6.73329E 00,
     *-6.39170E-03,-5.52832E-02,-1.16371E-01,-1.20306E-01,-5.12915E-02,
     * 4.85145E-02, 1.16303E-01, 1.08958E-01, 2.77644E-02,-7.94894E-02,
     *-1.32202E-01,-4.44280E-02, 2.51840E-01, 7.83818E-01, 1.53979E 00,
     * 2.47506E 00, 3.51071E 00, 4.58447E 00, 5.65485E 00, 6.73329E 00/
C
      DATA VI31B/
     * 1.39273E-02, 1.18990E-01, 2.44588E-01, 2.43902E-01, 9.94542E-02,
     *-8.59151E-02,-1.90452E-01,-1.60766E-01,-3.70932E-02, 8.28446E-02,
     * 1.12074E-01, 3.00456E-02,-7.71114E-02,-7.44948E-02, 2.14942E-01,
     * 9.18756E-01, 2.03262E 00, 3.51291E 00, 5.06739E 00, 6.59952E 00,
     * 1.39273E-02, 1.18990E-01, 2.44588E-01, 2.43902E-01, 9.94542E-02,
     *-8.59151E-02,-1.90452E-01,-1.60766E-01,-3.70932E-02, 8.28446E-02,
     * 1.12074E-01, 3.00456E-02,-7.71114E-02,-7.44948E-02, 2.14942E-01,
     * 9.18756E-01, 2.03262E 00, 3.51291E 00, 5.06739E 00, 6.59952E 00,
     *-1.73355E-02,-1.44904E-01,-2.85210E-01,-2.65581E-01,-9.90087E-02,
     * 6.95952E-02, 1.25198E-01, 7.38491E-02, 1.01588E-02, 1.32214E-02,
     * 6.07010E-02, 2.95124E-02,-2.09608E-01,-6.55809E-01,-1.10624E 00,
     *-1.15532E 00,-4.01067E-01, 1.51543E 00, 4.26869E 00, 7.32604E 00,
     *-1.73355E-02,-1.44904E-01,-2.85210E-01,-2.65581E-01,-9.90087E-02,
     * 6.95952E-02, 1.25198E-01, 7.38491E-02, 1.01588E-02, 1.32214E-02,
     * 6.07010E-02, 2.95124E-02,-2.09608E-01,-6.55809E-01,-1.10624E 00,
     *-1.15532E 00,-4.01067E-01, 1.51543E 00, 4.26869E 00, 7.32604E 00/
C
      DATA VI31C/
     * 2.02612E-02, 1.45282E-01, 2.31909E-01, 1.56477E-01, 3.08159E-02,
     * 3.40481E-02, 2.26712E-01, 5.02189E-01, 6.67531E-01, 5.85593E-01,
     * 2.91625E-01, 2.96202E-02, 2.22005E-01, 1.35967E 00, 3.87729E 00,
     * 8.05570E 00, 1.40659E 01, 2.19417E 01, 3.17518E 01, 4.44011E 01,
     * 2.02612E-02, 1.45282E-01, 2.31909E-01, 1.56477E-01, 3.08159E-02,
     * 3.40481E-02, 2.26712E-01, 5.02189E-01, 6.67531E-01, 5.85593E-01,
     * 2.91625E-01, 2.96202E-02, 2.22005E-01, 1.35967E 00, 3.87729E 00,
     * 8.05570E 00, 1.40659E 01, 2.19417E 01, 3.17518E 01, 4.44011E 01,
     *-4.41508E-02,-3.12814E-01,-4.87864E-01,-3.17899E-01,-6.00166E-02,
     *-5.98993E-02,-3.68506E-01,-7.33041E-01,-8.51607E-01,-6.29910E-01,
     *-2.49557E-01,-1.21737E-02,-7.65076E-02,-1.08459E-01, 5.42735E-01,
     * 2.92647E 00, 7.95346E 00, 1.66630E 01, 2.81163E 01, 4.29108E 01,
     *-4.41508E-02,-3.12814E-01,-4.87864E-01,-3.17899E-01,-6.00166E-02,
     *-5.98993E-02,-3.68506E-01,-7.33041E-01,-8.51607E-01,-6.29910E-01,
     *-2.49557E-01,-1.21737E-02,-7.65076E-02,-1.08459E-01, 5.42735E-01,
     * 2.92647E 00, 7.95346E 00, 1.66630E 01, 2.81163E 01, 4.29108E 01/
C
      DATA VI31D/
     * 5.49602E-02, 3.81180E-01, 5.69840E-01, 3.47603E-01, 6.03819E-02,
     * 4.75721E-02, 2.36624E-01, 3.22831E-01, 1.62102E-01,-7.00645E-02,
     *-1.42435E-01,-3.52087E-02,-2.07508E-01,-1.21673E 00,-2.86070E 00,
     *-3.92882E 00,-1.69850E 00, 6.55704E 00, 2.27910E 01, 4.66247E 01,
     * 5.49602E-02, 3.81180E-01, 5.69840E-01, 3.47603E-01, 6.03819E-02,
     * 4.75721E-02, 2.36624E-01, 3.22831E-01, 1.62102E-01,-7.00645E-02,
     *-1.42435E-01,-3.52087E-02,-2.07508E-01,-1.21673E 00,-2.86070E 00,
     *-3.92882E 00,-1.69850E 00, 6.55704E 00, 2.27910E 01, 4.66247E 01/
C
      DATA DA/
     * 3.74922E-02, 1.12289E-01, 1.86523E-01, 2.59820E-01, 3.31804E-01,
     * 4.02101E-01, 4.70336E-01, 5.36132E-01, 5.99117E-01, 6.58913E-01,
     * 7.15148E-01, 7.67444E-01, 8.15429E-01, 8.58726E-01, 8.96960E-01,
     * 9.29757E-01, 9.56742E-01, 9.77538E-01, 9.91772E-01, 9.99070E-01,
     * 3.74922E-02, 1.12289E-01, 1.86523E-01, 2.59820E-01, 3.31804E-01,
     * 4.02101E-01, 4.70336E-01, 5.36132E-01, 5.99117E-01, 6.58913E-01,
     * 7.15148E-01, 7.67444E-01, 8.15429E-01, 8.58726E-01, 8.96960E-01,
     * 9.29757E-01, 9.56742E-01, 9.77538E-01, 9.91772E-01, 9.99070E-01,
     *-8.18896E-02,-2.42282E-01,-3.92602E-01,-5.26434E-01,-6.37810E-01,
     *-7.21391E-01,-7.72643E-01,-7.88020E-01,-7.65139E-01,-7.02963E-01,
     *-6.01979E-01,-4.64379E-01,-2.94234E-01,-9.76795E-02, 1.16908E-01,
     * 3.38732E-01, 5.54396E-01, 7.47725E-01, 8.99586E-01, 9.87706E-01,
     *-8.18896E-02,-2.42282E-01,-3.92602E-01,-5.26434E-01,-6.37810E-01,
     *-7.21391E-01,-7.72643E-01,-7.88020E-01,-7.65139E-01,-7.02963E-01,
     *-6.01979E-01,-4.64379E-01,-2.94234E-01,-9.76795E-02, 1.16908E-01,
     * 3.38732E-01, 5.54396E-01, 7.47725E-01, 8.99586E-01, 9.87706E-01,
     * 40*0.D0 /
C
      DATA VA/
     * 1.02360E-01, 2.96335E-01, 4.58982E-01, 5.72406E-01, 6.23040E-01,
     * 6.03048E-01, 5.11422E-01, 3.54658E-01, 1.46929E-01,-9.03358E-02,
     *-3.29553E-01,-5.38872E-01,-6.84927E-01,-7.36555E-01,-6.69544E-01,
     *-4.72579E-01,-1.54344E-01, 2.47965E-01, 6.58798E-01, 9.52765E-01,
     * 1.02360E-01, 2.96335E-01, 4.58982E-01, 5.72406E-01, 6.23040E-01,
     * 6.03048E-01, 5.11422E-01, 3.54658E-01, 1.46929E-01,-9.03358E-02,
     *-3.29553E-01,-5.38872E-01,-6.84927E-01,-7.36555E-01,-6.69544E-01,
     *-4.72579E-01,-1.54344E-01, 2.47965E-01, 6.58798E-01, 9.52765E-01/
C
C
      END
